home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cyber Strip Poker
/
Cyber Strip Poker.rar
/
IMAGE.img
/
pok18pc.dir
/
00076_Script_76
< prev
next >
Wrap
Text File
|
1995-08-14
|
14KB
|
668 lines
--CheckDHand
on checkDHand
global Drawn,Dfeel
set Dfeel=0
set drawn=0
global dcard1,dcard2,dcard3,dcard4,dcard5,dcard6,dcard7,dcard8
global d1,d2,d3,d4,d5
global ds1,ds2,ds3,ds4,ds5
-- checkStraightFlush
if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) and (ds4=ds5) and (d2-d1=1) and ¼
(d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
set drawn=0
set dfeel=250
exit
end if
-- checkFlush
if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) and (ds4=ds5) then
set drawn=0
set dfeel=200
exit
end if
-- checkStraight
if (d2-d1=1) and (d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
set drawn=0
set dfeel=160
exit
end if
-- checkFourStraightFlush
if (ds1=ds2) and (d2-d1=1) and (ds2=ds3) and (d3-d2=1) and (ds3=ds4) and (d4-d3=1) then
set drawn=1
set dcard5=dcard6
set dfeel=50
sort
exit
end if
if (ds2=ds3) and (d3-d2=1) and (ds3=ds4) and (d4-d3=1) and (ds4=ds5) and (d5-d4=1) then
set drawn=1
set dcard1=dcard6
set dfeel=50
sort
exit
end if
if (ds1=ds3) and (d3-d1=2) and (ds3=ds4) and (d4-d3=1) and (ds4=ds5) and (d5-d4=1) then
put "Four Straight Flush" into dhand
set drawn=1
set dcard2=dcard6
set dfeel=70
sort
exit
end if
if (ds1=ds2) and (d2-d1=1) and (ds2=ds4) and (d4-d2=2) and (ds4=ds5) and (d5-d4=1) then
set drawn=1
set dcard3=dcard6
set dfeel=80
sort
exit
end if
if (ds1=ds2) and (d2-d1=1) and (ds2=ds3) and (d3-d2=1) and (ds3=ds5) and (d5-d3=2) then
set drawn=1
set dcard4=dcard6
set dfeel=50
sort
exit
end if
if (ds1=ds2) and (d2-d1=2) and (ds2=ds3) and (d3-d2=1) and (ds4=ds3) and (d4-d3=1) then
set drawn=1
set dcard5=dcard6
set dfeel=50
sort
exit
end if
if (ds1=ds2) and (d2-d1=1) and (ds2=ds3) and (d3-d2=2) and (ds4=ds3) and (d4-d3=1) then
set drawn=1
set dcard5=dcard6
set dfeel=50
sort
exit
end if
if (ds1=ds2) and (d2-d1=1) and (ds2=ds3) and (d3-d2=1) and (ds4=ds3) and (d4-d3=2) then
set drawn=1
set dcard5=dcard6
set dfeel=50
sort
exit
end if
if (ds2=ds3) and (d3-d2=2) and (ds4=ds3) and (d4-d3=1) and (ds5=ds4) and (d5-d4=1) then
set drawn=1
set dcard1=dcard6
set dfeel=50
sort
exit
end if
if (ds2=ds3) and (d3-d2=1) and (ds4=ds3) and (d4-d3=2) and (ds5=ds4) and (d5-d4=1) then
set drawn=1
set dcard1=dcard6
set dfeel=50
sort
exit
end if
if (ds2=ds3) and (d3-d2=1) and (ds4=ds3) and (d4-d3=1) and (ds5=ds4) and (d5-d4=2) then
set drawn=1
set dcard1=dcard6
set dfeel=50
sort
exit
end if
-- checkFourOfAKind
if (d1=d2) and (d2=d3) and (d3=d4) then
set drawn=1
if d5<8 then set dcard5=dcard6
set dfeel=170
sort
exit
end if
if (d2=d3) and (d3=d4) and (d4=d5) then
set drawn=1
if d1<8 then set dcard1=dcard6
set dfeel=180
sort
exit
end if
-- checkFullHouse
if (d1=d2) and (d2=d3) and (d4=d5) then
set dfeel=150
set drawn=0
exit
end if
if (d1=d2) and (d3=d4) and (d4=d5) then
set drawn=0
set dfeel=120
exit
end if
-- checkFourFlush
if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) then
if (d4=d5) and (d4>5) then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=50
sort
exit
else
set drawn=1
set dcard5=dcard6
set dfeel=40
sort
exit
end if
end if
if (ds2=ds3) and (ds3=ds4) and (ds4=ds5) then
if (d1=d2) and (d1>5) then
set drawn=3
set dcard3=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=60
sort
exit
else
set drawn=1
set dcard1=dcard6
set dfeel=40
sort
exit
end if
end if
if (ds1=ds3) and (ds3=ds4) and (ds4=ds5) then
if (d1=d2) and d2>5 then
set drawn=3
set dcard3=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=30
sort
exit
end if
if (d2=d3) and d3>5 then
set drawn=3
set dcard1=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=70
sort
exit
else
set drawn=1
set dcard2=dcard6
set dfeel=40
sort
exit
end if
end if
if (ds1=ds2) and (ds2=ds4) and (ds4=ds5) then
if (d2=d3) and d3>5 then
set drawn=3
set dcard1=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=55
sort
exit
end if
if (d4=d3) and d3>5 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard5=dcard8
set dfeel=45
sort
exit
else
set drawn=1
set dcard3=dcard6
set dfeel=40
sort
exit
end if
end if
if (ds1=ds2) and (ds2=ds3) and (ds3=ds5) then
if (d3=d4) and d4>5 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard5=dcard8
set dfeel=65
sort
exit
end if
if (d4=d5) and d4>5 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=45
sort
exit
else
set drawn=1
set dcard4=dcard6
set dfeel=40
sort
exit
end if
end if
-- checkFourStraight
if (d2-d1=2) and (d3-d2=1) and (d4-d3=1) then
if (d4=d5) and (d5>4) then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=50
sort
exit
else
set drawn=1
set dcard5=dcard6
set dfeel=40
sort
exit
end if
end if
if (d2-d1=1) and (d3-d2=2) and (d4-d3=1) then
if (d4=d5) and (d5>4) then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=60
sort
exit
else
set drawn=1
set dcard5=dcard6
set dfeel=40
sort
exit
end if
end if
if (d2-d1=1) and (d3-d2=1) and (d4-d3=2) then
if (d4=d5) and (d5>4) then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=50
sort
exit
else
set drawn=1
set dcard5=dcard6
set dfeel=40
sort
exit
end if
end if
if (d3-d2=2) and (d4-d3=1) and (d5-d4=1) then
if (d1=d2) and (d2>4) then
set drawn=3
set dcard3=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=60
sort
exit
else
set drawn=1
set dcard1=dcard6
set dfeel=50
sort
exit
end if
end if
if (d3-d2=1) and (d4-d3=2) and (d5-d4=1) then
if (d1=d2) and (d2>4) then
set drawn=3
set dcard3=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=40
sort
exit
else
set drawn=1
set dcard1=dcard6
set dfeel=20
sort
exit
end if
end if
if (d3-d2=1) and (d4-d3=1) and (d5-d4=2) then
if (d1=d2) and (d2>4) then
set drawn=3
set dcard3=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=30
sort
exit
else
set drawn=1
set dcard1=dcard6
set dfeel=40
sort
exit
end if
end if
if (d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
if (d1=d2) and (d2>6) then
set drawn=3
set dcard3=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=20
sort
exit
else
set drawn=1
set dcard1=dcard6
set dfeel=45
sort
exit
end if
end if
if (d2-d1=1) and (d3-d2=1) and (d4-d3=1) then
if (d4=d5) and (d5>6) then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=45
sort
exit
else
set drawn=1
set dcard5=dcard6
set dfeel=40
sort
exit
end if
end if
if (d3-d1=2) and (d4-d3=1) and (d5-d4=1) then
if (d1=d2) and d2>4 then
set drawn=3
set dcard3=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=50
sort
exit
end if
if (d2=d3) and d3>4 then
set drawn=3
set dcard1=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=45
sort
exit
else
set drawn=1
set dcard2=dcard6
set dfeel=50
sort
exit
end if
end if
if (d2-d1=1) and (d4-d2=2) and (d5-d4=1) then
if (d2=d3) and d3>4 then
set drawn=3
set dcard1=dcard6
set dcard4=dcard7
set dcard5=dcard8
set dfeel=50
sort
exit
end if
if (d4=d3) and d3>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard5=dcard8
set dfeel=45
sort
exit
else
set drawn=1
set dcard3=dcard6
set dfeel=30
sort
exit
end if
end if
if (d2-d1=1) and (d3-d2=1) and (d5-d3=2) then
if (d3=d4) and d4>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard5=dcard8
set dfeel=30
sort
exit
end if
if (d4=d5) and d4>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=55
sort
exit
else
set drawn=1
set dcard4=dcard6
set dfeel=60
sort
exit
end if
end if
if (d2-d1=2) and (d3-d2=1) and (d4-d3=1) then
if (d4=d5) and d4>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=30
sort
exit
else
set drawn=1
set dcard5=dcard6
set dfeel=50
sort
exit
end if
end if
if (d2-d1=1) and (d3-d2=2) and (d4-d3=1) then
if (d4=d5) and d4>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=30
sort
exit
else
set drawn=1
set dcard5=dcard6
set dfeel=45
sort
exit
end if
end if
if (d2-d1=1) and (d3-d2=1) and (d4-d3=2) then
if (d4=d5) and d4>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=30
sort
exit
else
set drawn=1
set dcard5=dcard6
set dfeel=45
sort
exit
end if
end if
if (d3-d2=2) and (d4-d3=1) and (d5-d4=1) then
if (d1=d2) and d2>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=30
sort
exit
else
set drawn=1
set dcard1=dcard6
set dfeel=45
sort
exit
end if
end if
if (d3-d2=1) and (d4-d3=2) and (d5-d4=1) then
if (d1=d2) and d2>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=30
sort
exit
else
set drawn=1
set dcard1=dcard6
set dfeel=45
sort
exit
end if
end if
if (d3-d2=1) and (d4-d3=1) and (d5-d4=2) then
if (d1=d2) and d2>4 then
set drawn=3
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set dfeel=30
sort
exit
else
set drawn=1
set dcard1=dcard6
set dfeel=45
sort
exit
end if
end if
-- checkTriplets
if (d1=d2) and (d2=d3) then
set drawn=2
set dcard4=dcard6
set dcard5=dcard7
set dfeel=80
sort
exit
end if
if (d2=d3) and (d3=d4) then
set drawn=2
set dcard1=dcard6
set dcard5=dcard7
set dfeel=100
sort
exit
end if
if (d3=d4) and (d4=d5) then
set drawn=2
set dcard1=dcard6
set dcard2=dcard7
set dfeel=120
sort
exit
end if
-- checkTwoPair
if (d1=d2) and (d3=d4) then
set drawn=1
set dcard5=dcard6
set dfeel=80
sort
exit
end if
if (d1=d2) and (d4=d5) then
set drawn=1
set dcard3=dcard6
set dfeel=85
sort
exit
end if
if (d2=d3) and (d4=d5) then
set drawn=1
set dcard1=dcard6
set dfeel=95
sort
exit
end if
-- checkOnePair
if (d1=d2) then
set dcard3=dcard6
set dcard4=dcard7
if d5<9 or (random(2)=1) then
set dcard5=dcard8
set drawn=3
set dfeel=40
else
set drawn=2
set dfeel=30
end if
sort
exit
end if
if (d2=d3) then
set dcard1=dcard6
set dcard4=dcard7
if d5<9 or (random(2)=1) then
set dcard5=dcard8
set drawn=3
else
set drawn=2
end if
set dfeel=30
sort
exit
end if
if (d3=d4) then
set dcard1=dcard6
set dcard2=dcard7
if d5<9 or (random(2)=1) then
set dcard5=dcard8
set drawn=3
else
set drawn=2
end if
set dfeel=40
sort
exit
end if
if (d4=d5) then
set dcard1=dcard6
set dcard2=dcard7
set dcard3=dcard8
set drawn=3
set dfeel=50
sort
exit
end if
-- decideNoPair
set drawn=3
set dcard1=dcard7
set dcard2=dcard8
set dcard3=dcard6
set dfeel=50
sort